===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-02-93 (15:33)             Number: 29
From: SEAN PAGE                    Refer#: 148
  To: ZACK JONES                    Recvd: NO  
Subj: Re: Disabling Break Key        Conf: (35) Quick Basi
---------------------------------------------------------------------------
Here is source code that proves that it CAN be done in QB!!!

DIM OLD%(4)
DEF SEG=0
FOR I=&H6C TO &H6F
  OLD%(I-&H6C)=PEEK(I)
NEXT
POKE &H6C,&H53
POKE &H6D,&HFF
POKE &H6E,&H0
POKE &H6F,&HF0
DEF SEG

And to reset it to active again:

DEF SEG=0
FOR I=&H6C TO &H6F
  POKE I,OLD%(I-&H6C)
NEXT
DEF SEG

I got this source from a doc on peeks and pokes...  If anyone else wants it, I c
an upload it...


--- Opus-CBCS 1.79.x
 * Origin: Bob's Answering Machine - Phx, AZ - (1:114/17.0)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20